Option Explicit
Sub E_Sample009()
    'ո E_Data01u@
    Dim myRng    As Range
    Dim myCnt    As Long
    Dim myKey    As String
    Dim myErrNum As Long
    Set myRng = Columns("C:H")                      'jMӷd
    myKey = ""                                  'Ȫw
    On Error Resume Next
    myCnt = WorksheetFunction.VLookup(myKey, myRng, 6, False)   'jM󪺫w
    myErrNum = Err.Number
    On Error GoTo 0
    If myErrNum = 0 Then
        MsgBox myKey & "XpƬ" & myCnt & "C"
    Else
        MsgBox "SŦX󪺸"
    End If
    Set myRng = Nothing                             '
End Sub

